Public Class clsDatosRN
  Dim DatosSD As New clsDatosSD
  Function CargaDatos(ByVal str As String, ByVal fp As FpSpread)
    Dim ds As DataSet
    Dim dr As DataRow

    ds = DatosSD.CargaDatosSD(str)
    If ds.Tables(0).Rows.Count > 0 Then
      fp.Sheets(0).DataSource = ds
    End If
  End Function

  Function Eliminar(ByVal strTablaAfectar As String, ByVal strCampoAfectar As String, ByVal strValorLlave As String)
    DatosSD.Eliminar(strTablaAfectar, strCampoAfectar, strValorLlave)
  End Function
End Class
